EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
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LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**F ILE**1D**L IBREMQH] 


LL III! BBBBBBBB RRRRRRRR EEEEEEEEEE MM MM QQQ0QQ HH HH IIIIII 
LL III] BBBBBBBB RRRRRRRR EEEEEEEEEE MM MM QQQ000 HH HH III! 
LL I] BB BB RR RR EE MMMM MMMM QQ QQ HH HH II 
LL II BB BB RR RR EE MMMM MMMM «60 QQ HH HH I] 
LL I] BB BB RR RR EE MM MM MM «QQ QQ HH HH I] 
LL I] BB BB RR RR EE MM MM MM «QQ QQ HH HH I] 
LL I] 6BBBBBBB RRRRRRRR EEEEEEEE MM QQ QQ HHHHHHHHHH Il 
LL I] RRRRRRRR EEEEEEEE MM MM QQ QQ HHHHHHHHHH Il 
LL I] BB BB RR RR EE MM MM QQ QQ QQ HH HH Il 
LL I] BB BB RR RR EE MM MM QQ QQ QQ HH HH II 
LL I] BB BB RR RR EE MM MM QQ QQ HH HH Il 
LL I] BB BB RR RR EE MM MM QQ QQ HH HH Il 
LLLLLLLLLL 11111 BBBBBBBB RR RR EEEEEEEEEE MM MM QQQQ QQ HH HH III1I1 
LLLLLLLLLL III] BBBBBB RR RR EEEEEEEEEE MM MM QQQQ QQ HH HH III! 
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DECLARATIONS 
LIBSREMQHI = Remove Entry from Queue Head 
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-TITLE LIBSREMQHI = Remove Entry from Queue at Head, Interlock 
- IDENT At ; File: LIBREMQHI.MAR baie spee 1002 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 
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TO CHANGE WITHOUT NOTICE 
MENT BY DIGITAL EQUIPMENT 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT 
ND SHOULD NOT BE CONSTRUED AS A COMMIT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 
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++ 
; FACILITY: General Utility Library 
; ABSTRACT: 


3 One of four procedures which give higher level Languages access 

: to the interlocked, self-relative queue instructions on the 

: VAX=11/780 and all future machines. This library procedure permits 

: the high level language user to have access to the REMQHI instruction. 
: ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: R. E. Johnston, CREATION DATE: 03-Dec-79 


; MODIFIED BY: 


; _1-001 - Original. REJ 03-Dec-79 
; 1-002 - Retry count is off by one. DGP 14-Aug-1981 
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SOOOOOOCOSOCOOSSOSSOSSSSSSOOOSOOSOOOSOOOOOOOOOOOOOOO OOOO OO 
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4-002 DECLARATIONS great aee P81 age HetEH TS Bacco ee oe man;1 oa 
9 ; -SBTTL DECLARATIONS 
¢ i INCLUDE FILES: 
4 e 
$ ; EXTERNAL DECLARATIONS: 
8 ; .DSABL GBL ; Disable automatic generation 
3; of .EXTRN 
60 eEXTRN SS$_NORMAL 3; Normal successful completion 
~-EXTRN LIBS_SECINTFAI : Secondary Interlock still 
; locked after retry-cnt retrys 
-EXTRN LIBS_ONEENTQUE ; Successful Completion but 
64 3 queue is now empty 
B80 65 -EXTRN LIBS_QUEWASEMP ; Queue was empty 
9464 66 3 peeve is net modi tied ful 
:; Procedure is no ss 
$000k . ate 
0000 69 ; MACROS: 
0000 70 ; 
0000 71 
0000 ue 3 
44 ie : EQUATED SYMBOLS: 
0000000A 0000 75 DEF_RETRY_CNT = 10 ; Default retry count for 
0000 76 : Secondary Interlock fails 
0000 77; 
0000 78 ; OWN STORAGE: 
0000 79 ; 
0000 80 
0000 81; 
8008 Hf 3 PSECT DECLARATIONS: 
00000000 «= « 84 .PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 85 
0000 86 
0000 87 
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“i -SBTTL LIBSREMQHI = Remove Entry from Queue Head 
FUNCTIONAL DESCRIPTION: 


One of four procedures which give higher level languages access 
to the interlocked, self-relative queue instructions on the 

VAX=11/780 and all future machines. This Library procedure permits 

the nigh level senguage user to have access to the REMQHI instruction. 
With this procedure the user may remove a queue entry from the head of 
a user specified queue. 


If the entry is successfully removed from the head of the queue and the 
ueue now contains one or more entries, a successful completion status 
s returned. If the entry is removed from the head of the queue and no 

other entries are now in the queue, the execution is successful but a 

unique status value is returned indicating that the queue now contains 

no entries (LIBS_ONEENTQUE). 


These queue instructions are synchronized across all processors 
through the use of a secondary interlock. The user may oped sty a 
secondary interlock retry count. (The default retry count is 10.) 

f the secondary interlock remains locked through retry-count covers 
a ye interlock status is returned to the user (LIB$_SECINTF 15 
and the entry is NOT successfully removed from the head of the queue. 


If an attempt is made to remove an entry from a queue which is already 
empty, a unique unsuccessful completion status is returned to the 
user (LIBS_QUEWASEMP) . 


CALLING SEQUENCE: 
ret-status.wic.v = LIBSREMQHI (header.mq.r, addr.wil.rl, retry-cnt.rlu.r)) 


INPUT PARAMETERS: 


; ; 
pS ag 
5 

0 

1 

; 


00000004 
00000008 


0000000C 


3; Address of queue header 

; Address where queue entry address 
; is to be returned to user 

; Address of retry count 


SOOO lCOOOOSSSSSOSSOSOSOSOSOSSOSOSSOSOOSOOSOSOOOOOOSOOO 
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S 


RETRY_CNT = 12 
; IMPLICIT INPUTS: 
NONE 


: OUTPUT PARAMETERS: 
; NONE 


DOOOOOOOSOOSOSOSOSOOSOOOOSOOOOOOOOOOOOOOOOOOOO 
SOooooooo 


; IMPLICIT OUTPUTS: 

; NONE 

; FUNCTION VALUE: 

! SS$_NORMAL - Entry removed from head of queue, queue still contains 


ee ee a ee ee ed ae ed ed od dd dd ss od od 


/ laa 


50 


50 


50 


50 


50 0=—«OC:~«BC 


08 BC 04 BC 
14 


08 
00000000 ° 8F 


13 
00000000 ° 8F 


E2 50 
00000000 * 8F 


00000000 * 8F 


1 "he 
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a ed dd 
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20$: 


30$: 


40$: 


50$: 
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LIBS_ONEENTQUE - 


LIBS_SECINTFAI = 
LIBS"QUEWASEMP - 


; SIDE EFFECTS: 
SS$_ROPRAND = reserved o 


~ ENTRY 


REMQHI 
BCS 


BEQL 
MOVL 


RET 
BVS 
MOVL 
RET 


SOBGEQ 
MOVL 


RET 
MOVL 


RET 
- END 
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one or more entrie 


Successful completion of instruction (REMQHI). Entry 


removed from head of queue, but queue is now empty. 


Secondary Interlock failed, queve is not modified. 
Unsuccessful completion of instruction (REMQHI). 


he queue was empty before the instruction was 


executed. 


erand fault for: 


1.) either the entry or the header is at an address 
that is not quad word aligned. 
2.) address of header equals address of entry. 


LIBSREMQHI , “M< > 
#DEF_RETRY_CNT, RO 


(AP), #<RETRY_CNT/4> 


DRETRY_CNT(AP), RO 


@HEADER(AP), @ADDR(AP) 
40$ 


30$ 
#SS$_NORMAL, RO 


50$ 
#LIBS_ONEENTQUE, RO 


RO, 208 
#LiBS_SECINTFAI, RO 


#LIBS_QUEWASEMP, RO 


Entry point 


RO = Default retry count of 10 

Check for optional retry cnt operand 
Branch if default count to be used 
RO = User specified retry count 


Do the instruction (REMQHI) 
Branch if C = 1 

(Secondary Interlock fail) 

Branch if Z = 1 

(Queue is now empty) 

Normal status - Entry removed from 
head of queue and one or more entries 
are still in queue 

Successful return to user 


Branch if V = 1 

(There was aeons there to remove) 
Assume the queve is just now empty 
Entry successfully removed from queue 
Successful return to user 


Loop until retry count is exhausted 
Retry count is exhausted 

Secondary Interlock fail status 
Unsuccessful return to user 


Queue was already empty before 
this queue instruction was executed 
Unsuccessful return to user 


1 6 
LIBSREMQHI - Remove Entry from Queve at Head, Inter 16-SEP-1984 9 VAX/VMS Macro v04- P 
Symbol table . J wien by Meer em epm 1984 FiidosTy ECTONTe eheSeteecmoes many Oo! chy 


ADDR 8 
DEF_RETRY_CNT = A 
HEADER 2 4 
LIBSREMQHI RG 1 
LIBS_ONEENTQUE eeeenree § 
LIBS_QUEWASEMP eeeereee = § x 
IBS"SECINTFAI eereerer x 
x 
poet oe sce w nee meses} 
! Psect synopsis ! 
bow rerm owen en m ane a} 
PSECT name Allocation PSECT No. Attributes 
- ABS. 0000000 8.3 69 ( 9} NOP IC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE O00003C ¢« 60.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Geeweoeeoeoeeoeoeocoosooesces$} 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 if 0: , 5 ° 98: 89-6 
—. ss processing 129 a ° ; he 144 
Symbol table sort : 0: 
coer at table output 3 ae op 3B 1:38 
u ° :00:00. 
Psect synopsis euteut < ° 338 : Boe 
Cross-reference output 700. 2 0:0 : 2: 0 
Assembler run totals 284 :00.9 :00:05.61 


de. 
There were 10 pages of symbol ie shece Stiecetes 5 hold 9 non-local y Ry local symbols. 
source Lines were read in Pass 1, producin Tob ect records in Pass 2. 

0 pages of virtual memory were used to define oar 


$m ee een eee see eames oe em em er me cow & 


! Macro Library statistics ! 


gece r eee neem e con cw eer ces een} 


Macro library name Macros defined 
_$255SDUA28: (SYSLIBJSTARLET.MLB;2 Svat Ww 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


L 
Sa 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBREMQHI/OBJ=O0BJ$:LIBREMQHI MSRC$:LIBREMQHI /UPDATE=(ENHS$:LIBREMQHI ) 
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